inherited frmMatm: TfrmMatm
  Caption = #29289#26009#22522#26412#36164#26009
  PixelsPerInch = 96
  TextHeight = 12
  inherited rzszpnlTree: TRzSizePanel
    inherited cxpgcntrlTree: TcxPageControl
      ClientRectBottom = 408
      ClientRectRight = 167
      ClientRectTop = 23
      inherited ctsTree: TcxTabSheet
        TabVisible = False
      end
      inherited ctsGrid: TcxTabSheet
        inherited cxgrdTree: TcxGrid
          inherited cxgrdbtblvwTree: TcxGridDBTableView
            DataController.DataSource = dsData
            DataController.KeyFieldNames = 'MAT_ID'
            OptionsView.GroupByBox = False
            object cxgrdbtblvwTreeMAT_ID: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_ID'
              Visible = False
            end
            object cxgrdbtblvwTreeMAT_NM: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_NM'
              Width = 130
            end
            object cxgrdbtblvwTreeMAT_NO: TcxGridDBColumn
              DataBinding.FieldName = 'MAT_NO'
              Width = 84
            end
            object cxgrdbtblvwTreeSPEC_ID: TcxGridDBColumn
              DataBinding.FieldName = 'SPEC_ID'
              Visible = False
            end
            object cxgrdbtblvwTreeUNIT_ID: TcxGridDBColumn
              DataBinding.FieldName = 'UNIT_ID'
              Visible = False
            end
          end
        end
      end
    end
  end
  inherited pnlData: TPanel
    object lbl1: TLabel
      Left = 32
      Top = 37
      Width = 48
      Height = 12
      Caption = #29289#26009#32534#21495
      FocusControl = dbedtMAT_NO
    end
    object lbl2: TLabel
      Left = 32
      Top = 133
      Width = 48
      Height = 12
      Caption = #29289#26009#21517#31216
      FocusControl = dbedtMAT_NM
    end
    object lbl3: TLabel
      Left = 56
      Top = 69
      Width = 24
      Height = 12
      Caption = #35268#26684
    end
    object lbl4: TLabel
      Left = 56
      Top = 101
      Width = 24
      Height = 12
      Caption = #21333#20301
    end
    inline fmeUserInfo1: TfmeUserInfo
      Left = 0
      Top = 344
      Width = 513
      Height = 64
      Align = alBottom
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      TabOrder = 5
      inherited lblAddUser: TLabel
        Left = 7
        Top = 15
      end
      inherited lblEditUser: TLabel
        Left = 7
        Top = 37
      end
      inherited lblAddDate: TLabel
        Left = 185
        Top = 15
      end
      inherited lblEditDate: TLabel
        Left = 185
        Top = 37
      end
      inherited dbedtAddUser: TDBEdit
        Left = 41
        Top = 12
        Width = 108
        Font.Height = -9
      end
      inherited dbedtEditUser: TDBEdit
        Left = 41
        Top = 34
        Width = 108
        Font.Height = -9
      end
      inherited dbedtAddDate: TDBEdit
        Left = 229
        Top = 12
        Width = 112
        DataSource = dsData
        Font.Height = -9
      end
      inherited dbedtEditDate: TDBEdit
        Left = 229
        Top = 34
        Width = 112
        DataSource = dsData
        Font.Height = -9
      end
      inherited cdsAddUser: TClientDataSet
        IndexFieldNames = 'USER_ID'
        MasterFields = 'ADD_USER'
        MasterSource = dsData
        PacketRecords = 0
      end
      inherited cdsEditUser: TClientDataSet
        IndexFieldNames = 'USER_ID'
        MasterFields = 'EDIT_USER'
        MasterSource = dsData
        PacketRecords = 0
      end
    end
    object dbedtMAT_NO: TDBEdit
      Left = 81
      Top = 34
      Width = 127
      Height = 18
      Ctl3D = False
      DataField = 'MAT_NO'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 0
    end
    object dbedtMAT_NM: TDBEdit
      Left = 81
      Top = 130
      Width = 277
      Height = 18
      Ctl3D = False
      DataField = 'MAT_NM'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 3
    end
    object cdbbedtspec_no: TcxDBButtonEdit
      Left = 81
      Top = 66
      DataBinding.DataField = 'SPEC_NO'
      DataBinding.DataSource = dsData
      Properties.Buttons = <
        item
          Default = True
          Kind = bkEllipsis
        end>
      Properties.OnButtonClick = cdbbedtspec_noPropertiesButtonClick
      TabOrder = 1
      OnDblClick = cdbbedtspec_noDblClick
      Width = 88
    end
    object dbedtspec_nm: TDBEdit
      Left = 169
      Top = 67
      Width = 112
      Height = 18
      Ctl3D = False
      DataField = 'SPEC_NM'
      DataSource = dsData
      ParentCtl3D = False
      TabOrder = 4
    end
    object cbbUNIT: TcxDBLookupComboBox
      Left = 81
      Top = 96
      DataBinding.DataField = 'UNIT_ID'
      DataBinding.DataSource = dsData
      Properties.DropDownAutoSize = True
      Properties.DropDownListStyle = lsEditList
      Properties.KeyFieldNames = 'unit_id'
      Properties.ListColumns = <
        item
          Width = 50
          FieldName = 'unit_no'
        end
        item
          FieldName = 'unit_nm'
        end>
      Properties.ListFieldIndex = 1
      Properties.ListSource = dsUnit
      TabOrder = 2
      Width = 127
    end
  end
  inherited adsData: TADODataSet
    CursorType = ctStatic
    CommandText = 
      'select mm.*, sc.spec_no, sc.spec_nm '#13#10'  from matm mm, spec sc'#13#10' ' +
      'where mm.spec_id = sc.spec_id'#13#10'   and mm.add_time >= current_dat' +
      'e'#13#10' order by mat_no'
    object adsDataMAT_ID: TLargeintField
      FieldName = 'MAT_ID'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
    end
    object adsDataMAT_NO: TStringField
      FieldName = 'MAT_NO'
    end
    object adsDataMAT_NM: TStringField
      FieldName = 'MAT_NM'
      Size = 50
    end
    object adsDataSPEC_ID: TLargeintField
      FieldName = 'SPEC_ID'
    end
    object adsDataUNIT_ID: TLargeintField
      FieldName = 'UNIT_ID'
    end
    object adsDataADD_USER: TLargeintField
      FieldName = 'ADD_USER'
    end
    object adsDataADD_TIME: TDateTimeField
      FieldName = 'ADD_TIME'
    end
    object adsDataEDIT_USER: TLargeintField
      FieldName = 'EDIT_USER'
    end
    object adsDataEDIT_TIME: TDateTimeField
      FieldName = 'EDIT_TIME'
    end
    object adsDataSPEC_NO: TStringField
      FieldName = 'SPEC_NO'
      ProviderFlags = []
      Size = 10
    end
    object adsDataSPEC_NM: TStringField
      FieldName = 'SPEC_NM'
      ProviderFlags = []
      Size = 50
    end
  end
  inherited dspData: TDataSetProvider
    UpdateMode = upWhereKeyOnly
  end
  inherited cdsData: TClientDataSet
    AfterOpen = cdsDataAfterOpen
    object cdsDataMAT_ID: TLargeintField
      FieldName = 'MAT_ID'
    end
    object cdsDataMAT_NO: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'MAT_NO'
    end
    object cdsDataMAT_NM: TStringField
      DisplayLabel = #29289#26009#21517#31216
      FieldName = 'MAT_NM'
      Size = 50
    end
    object cdsDataSPEC_ID: TLargeintField
      FieldName = 'SPEC_ID'
    end
    object cdsDataUNIT_ID: TLargeintField
      FieldName = 'UNIT_ID'
    end
    object cdsDataADD_USER: TLargeintField
      FieldName = 'ADD_USER'
    end
    object cdsDataADD_TIME: TDateTimeField
      FieldName = 'ADD_TIME'
    end
    object cdsDataEDIT_USER: TLargeintField
      FieldName = 'EDIT_USER'
    end
    object cdsDataEDIT_TIME: TDateTimeField
      FieldName = 'EDIT_TIME'
    end
    object cdsDataSPEC_NO: TStringField
      FieldName = 'SPEC_NO'
      ProviderFlags = []
      Size = 10
    end
    object cdsDataSPEC_NM: TStringField
      FieldName = 'SPEC_NM'
      ProviderFlags = []
      Size = 50
    end
  end
  object adsUnit: TADODataSet
    Connection = DM.conApp
    CursorType = ctStatic
    CommandText = 'select unit_id, unit_no, unit_nm from unit order by unit_no'
    Parameters = <>
    Left = 96
    Top = 185
    object adsUnitUNIT_ID: TLargeintField
      FieldName = 'UNIT_ID'
    end
    object adsUnitUNIT_NO: TStringField
      DisplayLabel = #32534#21495
      FieldName = 'UNIT_NO'
      Size = 10
    end
    object adsUnitUNIT_NM: TStringField
      DisplayLabel = #21333#20301#21517#31216
      FieldName = 'UNIT_NM'
    end
  end
  object dsUnit: TDataSource
    DataSet = adsUnit
    Left = 128
    Top = 185
  end
end
